10 PRINT CHR$(147)
20 PRINT"***** BEGRIFFE RATEN ******
30 [153]
40 :
50 [143]-------- SPIELANLEITUNG----------
60 :
70 :
80 [153]"DER COMPUTER DENKT SICH EINE
90 PRINT"SPORTART.
100 [153]"SIE SOLLEN SIE ERRATEN.
110 PRINT
120 PRINT"SIE KOENNEN EINEN BUCHSTABEN
130 [153]"EINGEBEN, DANN ERSCHEINEN
140 PRINT"DIE GERATENEN BUCHSTABEN AN
150 [153]"DER RICHTIGEN STELLE.
160 PRINT
170 PRINT"HABEN SIE DAS WORT ERRATEN,
180 [153]"GEBEN SIE ES KOMPLETT EIN.
190 :
200 :
210 REM------- WORT AUSWAEHLEN -------
220 :
230 :
240 FOR X=1 TO INT(RND(0)*14)+1
250 READ U$
260 NEXT
270 :
280 H$=""
290 FOR X=1 TO LEN(U$)
300 H$=H$+"."
310 NEXT
320 :
330 :
340 REM-------- RATEVERSUCH ---------
350 :
360 PRINT:PRINT
370 PRINT"GESUCHT WIRD: ";H$
380 PRINT
390 INPUT"WAS RATEN SIE";L$
400 IF L$=U$ THEN 600
410 IF LEN(L$)>1 THEN 360
420 :
430 :
440 REM--------- HILFSWORT ----------
450 :
460 :
470 N$=""
480 FOR X=1 TO LEN(U$)
490 B$=MID$(U$,X,1)
500 C$=MID$(H$,X,1)
510 IF L$=B$ THEN N$=N$+L$:GOTO 530
520 N$=N$+C$
530 NEXT
540 H$=N$
550 GOTO 360
560 :
570 :
580 REM----  NOCH EINMAL ? ----------
590 :
600 PRINT
610 PRINT"SIE HABEN RICHTIG GERATEN
620 [153]
630 [153]"NOCH EINMAL (J/N) ?
640 GET A$: IF A$="" THEN 640
650 IF A$="J" THEN RUN
660 PRINT
670 PRINT"AUF WIEDERSEHEN
680 :
690 :
700 [143]------- WOERTERSPEICHER--------
710 :
720 :
730 [131] FUSSBALL,HOCKEY,GOLF,BOXEN
740 [131] TURNEN,SCHWIMMEN,HOCHSPRUNG
750 [131] SEGELN,FECHTEN,JUDO,BASKETBALL
760 [131] KEGELN,SCHIFAHREN,TENNIS